home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SHELLS / SZ2 / ADEMO2.EVT < prev    next >
Text File  |  1992-08-31  |  841b  |  20 lines
  1.    {===================================================================
  2.  
  3.    OPEN
  4.  
  5.    ===================================================================}
  6. procedure hdOpen ;
  7. var
  8.    D                         : PFileDialog ;
  9.    FileSpec                  : FNameStr ;
  10. begin
  11.    FileSpec                  := '*.TXT' ;
  12.    New ( D , Init ( FileSpec ,                             { FileSpec }
  13.                     'Open file',                       { Dialog title }
  14.                     '~N~ame' ,                      { InputLine label }
  15.                     fdOpenButton ,                          { Buttons }
  16.                     100 ) ) ;                          { History list }
  17.    if ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ;   { GENERAL }
  18.    OpenEditor ( FileSpec , TRUE ) ;                         { GENERAL }
  19. end ;
  20.